Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox14.Text <> "" And TextBox15.Text <> "" And TextBox16.Text <> "" And TextBox17.Text <> "" And TextBox18.Text <> "" And TextBox19.Text <> "" And TextBox20.Text <> "" And TextBox21.Text <> "" And TextBox22.Text <> "" And TextBox23.Text <> "" And TextBox24.Text <> "" Then

            Dim MyArray() As String

            Dim lettura As String = ""

            Dim leggi As New IO.StreamReader(Application.StartupPath & "/winforlife.txt")

            While Not leggi.EndOfStream

                lettura = leggi.ReadLine()

                MyArray = lettura.Split("- ")

                If TextBox14.Text = MyArray(3) Then

                    MsgBox("ciao")

                End If

                If TextBox14.Text = MyArray(3) And TextBox15.Text = MyArray(4) And TextBox16.Text = MyArray(5) And TextBox17.Text = MyArray(6) And TextBox18.Text = MyArray(7) And TextBox19.Text = MyArray(8) And TextBox20.Text = MyArray(9) And TextBox21.Text = MyArray(10) And TextBox22.Text = MyArray(11) And TextBox23.Text = MyArray(12) And TextBox24.Text = MyArray(13) Then

                    MsgBox("Colonna Trovata")

                End If

            End While

            leggi.Close()

        Else

            MsgBox("Uno o più campi risultano vuoti. Riempirli e riprovare")

        End If

    End Sub